0 REM << CD37-8 >>
1 REM COMMODARES PROBLEM #33-4:
2 PRINT"[147]   COUNTING COMBINATIONS"
3 REM SOLUTION BY
4 REM    JIM SPEERS
5 REM
10 INPUT"ENTER N,R";N,R:IF N<R THEN 10
20 N$=STR$(N) : R$=STR$(R)
30 IF N=0 THEN END
40 IF N=R OR R=0 THEN T=1 : GOTO 70
50 IF (N-R)<R THEN R=N-R
60 T=1 : FOR I=1 TO R : T=T*N/I : N=N-1 : NEXT
70 PRINT"THERE ARE";T;"COMBINATIONS OF"
80 PRINT N$;" THINGS TAKEN ";R$;" AT A TIME."
90 PRINT"" : GOTO 10